home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
wsc4vb24
/
termglob.bas
< prev
next >
Wrap
BASIC Source File
|
1999-01-09
|
1KB
|
43 lines
' Global Variables
Option Explicit
Global ThePort As Integer
Global TheBaudCode As Integer
Global TheDataBits As Integer
Global TheParity As Integer
Global TheStopBits As Integer
Global BaudText(0 To 8) As String
Global ParityText(0 To 7) As String
Global OnLineFlag As Integer
Global FatalFlag As Integer
Global mioState As Integer
Global asState As Integer
Global xyState As Integer
Global FirstXYstate As Integer
Global FirstASstate As Integer
Global WaitingFor As Integer
Global LastPacket As Integer
Global DebugLevel As Integer
Global Protocol As Integer
Global Filename As String
'Global Constants
Global Const RX_QUE_SIZE = 1040
Global Const TX_QUE_SIZE = 1040
Global Const NAK = &H15
Global Const XY_FILE_NAME = 1
Global Const AS_FILE_NAME = 2
Global Const PHONE_NUMBER = 3
Global Const Dial_1 = 21
Global Const Dial_2 = 22
Global Const Dial_3 = 23
Global Const TX_XM = 31
Global Const TX_YM = 32
Global Const RX_XM = 33
Global Const RX_YM = 34
Global Const RUN_XY = 35
Global Const TX_AS = 41
Global Const RX_AS = 42
Global Const RUN_AS = 43
Global Const XMODEM = 0
Global Const YMODEM = 1